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FOREWORD 


THE  UNITED  STATES  AIR  FORCE  HAS  COMMITTED  ITSELF  TO  "STANDARDIZATION." 
THE  THEME  OF  THIS  YEAR'S  CONFERENCE  IS  "RATIONAL  STANDARDIZATION,"  AND  WE 
HAVE  EXPANDED  THE  SCOPE  TO  INCLUDE  US  ARMY,  US  NAVY  AND  NATO  PERSPECTIVES 
ON  ONGOING  DOD  INITIATIVES  IN  THIS  IMPORTANT  AREA. 


WHY  DOES  THE  AIR  FORCE  SYSTEMS  COMMAND  SPONSOR  THESE  CONFERENCES? 
BECAUSE  WE  BELIEVE  THAT  THE  COMMUNICATIONS  GENERATED  BY  THESE  GET-TOGETHERS 
IMPROVE  THE  ACCEPTANCE  OF  OUR  NEW  STANDARDS  AND  FOSTERS  EARLIER,  SUCCESSFUL 
IMPLEMENTATION  IN  NUMEROUS  APPLICATIONS.  WE  WANT  ALL  PARTIES  AFFECTED  BY 
THESE  STANDARDS  TO  KNOW  JUST  WHAT  IS  AVAILABLE  TO  SUPPORT  THEM:  THE 
HARDWARE;  THE  COMPLIANCE  TESTING;  THE  TOOLS  NECESSARY  TO  FACILITATE  DESIGN, 
ETC.  WE  ALSO  BELIEVE  THAT  FEEDBACK  FROM  PEOPLE  WHO  HAVE  USED  THEM  IS 
ESSENTIAL  TO  OUR  CONTINUED  EFFORTS  TO  IMPROVE  OUR  STANDARDIZATION  PROCESS. 
WE  HOPE  TO  LEARN  FROM  OUR  SUCCESSES  AND  OUR  FAILURES;  BUT  FIRST,  WE  MUST 
KNOW  WHAT  THESE  ARE  AND  WE  COUNT  ON  YOU  TO  TELL  US. 


AS  WE  DID  IN  1980,  WE  ARE  FOCUSING  OUR  PRESENTATIONS  ON  GOVERNMENT 
AND  INDUSTRY  EXECUTIVES,  MANAGERS,  AND  ENGINEERS  AND  OUR  GOAL  IS  TO 
EDUCATE  RATHER  THAN  PRESENT  DETAILED  TECHNICAL  MATERIAL.  WE  ARE  STRIVING 
TO  PRESENT,  IN  A  SINGLE  FORUM,  THE  TOTAL  AFSC  STANDARDIZATION  PICTURE  FROM 
POLICY  TO  IMPLEMENTATION.  WE  HOPE  THIS  INSIGHT  WILL  ENABLE  ALL  OF  YOU  TO 
BETTER  UNDERSTAND  THE  "WHY'S  AND  WHEREFORE’S”  OF  OUR  CURRENT  EMPHASIS  ON 
THIS  SUBJECT. 


MANY  THANKS  TO  A  DEDICATED  TEAM  FROM  THE  DIRECTORATE  OF  AVIONICS 
ENGINEERING  FOR  ORGANIZING  THIS  CONFERENCE;  FROM  THE  OUTSTANDING  TECHNICAL 
PROGRAM  TO  THE  UNGLAMOROUS  DETAILS  NEEDED  TO  MAKE  YOUR  VISIT  TO  DAYTON,  OHIO 
A  PLEASANT  ONE.  THANKS  ALSO  TO  ALL  THE  MODERATORS,  SPEAKERS  AND  EXHIBITORS 
WHO  RESPONDED  IN  SUCH  A  TIMELY  MANNER  TO  ALL  OF  OUR  PLEAS  FOR  ASSISTANCE. 


ROBERT  P.  LAVOIE,  COL,  USAF 
DIRECTOR  OF  AVIONICS  ENGINEERING 
DEPUTY  FOR  ENGINEERING 
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Second  PFSC  Standardization  Conference 


ASD/CC 

1.  Since  the  highly  successful  standardization  conference  hosted  by  ASD  in 
1980,  significant  technological  advancements  have  occurred.  Integration  of 
the  standards  into  weapon  systems  has  become  a  reality.  As  a  result,  we  have 
many  "lessons  learned"  and  cost/benefit  analyses  that  should  be  shared  within 
the  tri-service  aomrt unity.  Also,  this  would  be  a  good  opportunity  to  update 
current  and  potential  "users."  Therefore,  I  endorse  the  organization  of  the 
Second  AFSC  Standardization  Conference. 

2.  This  conference  should  cover  the  current  accepted  standards,  results  of 
recent  congressional  actions,  and  standards  planned  for  the  future.  We  should 
provide  the  latest  information  on  policy,  system  applications,  and  lessons 
learned.  The  agenda  should  accommodate  both  government  and  industry  inputs 
that  criticize  as  well  as  support  our  efforts.  Experts  from  the  tri-service 
arena  should  be  invited  to  present  papers  on  the  various  topics.  Oar  AFSC 
project  officer,  Maj  David  Hammond,  HQ  AFSC/ALR,  AUTOVON  858-5731,  is  prepared 
to  assist. 
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M1L-STD-1589 

JOVIAL  (J-73)  HIGH  ORDER  LANGUAGE 

Instructor:  Judy  Bamberger 
TRW/DSSG 


ABSTRACT 

M  Introduction  to  the  JOVIAL  ( J73)  Programming  Language  presents  an  overview 
of  the  J73  language.  Features  common  to  nany  modem  HOLs,  such  as  strong  typ¬ 
ing,  structured  flow  of  control,  modular  program  construction,  are  emphasized. 
The  organization  flows  logically;  first  a  brief  preview  of  a  complete  program 
is  presented,  followed  by  a  discussion  of  the  building  blocks  of  the  language 
(declarations,  executable  statements,  subroutines),  concluding  with  a  more 
thorough  look  at  complete  programs,  and  how  the  modularity  constructs  provided 
in  J73  can  be  exploited  to  enhance  the  development  of  large  software  systems. 
Seme  of  the  more  special-purpose  features  of  the  language  are  then  briefly 
illustrated  (e.g.,  built-in  functions,  specified  tables).  This  introduction 
to  J73  provides  a  logical  view  of  the  flavor  and  power  of  the  J73  language  for 
r.  ana  gars  and  programmers  alike. 


BIOGRAPHY 

Judy  Barberaer  was  bom  in  Milwaukee  Wisconsin  on  26  September  1952.  She 
received  the  B.S.  degree  in  mathematics,  French,  and  education  from  the 
University  of  Wisconsin-Milwaukee  in  1974,  and  the  K.Fd.  degree  in  Junior  High 
mathematics  from  the  University  of  Northern  Colorado  (Greeley)  in  1979. 

From  1976  to  1979,  she  was  a  teacher  in  the  Colorado  school  system.  Then, 
from  mid-1979  through  early  1981,  she  joined  SofTech  Inc.  in  Waltham  MA. 
There,  she  was  responsible  for  all  user  documentation  for  the  JOVIAL  (J73) 
compilers.  In  addition,  she  developed  a  JOVIAL  (j73)  course,  which  she 
presented  to  several  military  and  industrial  organizations,  both  in  this  coun¬ 
try  and  abroad.  She  designed  and  co-ordinal  cd  the  production  of  the  video 
course  based  on  the  original  course.  Since  early  1981,  she  has  been  employed 
by  TRW  in  Redondo  Beach  CA,  where  she  was  developing  benchmark  programs  for 
JOVIAL  compilers.  She  is  currently  part  of  the  team  developing  a  prototype  of 
an  advanced  Ada  Programming  Support  Environment  (APSE)  for  the  Navy. 

Ms.  Bamberger  is  an  active  member  of  the  JOVIAL-Ada  Users  Group,  where  she  is 
currrently  chairing  the  Education  Committee. 
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WHAT  IS  HOL? 


ANSWER  =  FIRST  +  OTHER; 


JOVIAL  (J73)  CAPABILITIES 


MACHINE  PARAMETERS  FOR  PORTABILITY 


JOVIAL  (J73)  CAPABILITIES 


SAMPLE  PROGRAM  1 
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MAIN-PROGRAM-MODULE 


SAMPLE  PROGRAM  I 


START 

PROGRAM  COUNTER; 

BEGIN  ’’MAIN-PROGRAM-MODULE” 

’’DECLARATIONS” 

ITEM  ONE  S  *  1; 

ITEM  TWO  S  =  2; 

ITEM  TOTAL  S; 

’’EXECUTION” 

COMPUTE  (ONE,  TWO  :  TOTAL); 
’’SUBROUTINES” 

PROC  COMPUTE  (  FIRST,  SECOND  :  SUM); 
BEGIN  ’’SUBROUTINE” 

ITEM  FIRST  S; 

ITEM  SECOND  S; 

ITEM  SUM  S; 

SUM  =  FIRST  +  SECOND; 

END  ’’SUBROUTINE” 

END  ’’MAIN-PROGRAM-MODULE” 


TERM 


SAMPLE  PROGRAM  2 


SAMPLE  PROGRAM  2 


START 

COM  POOL  DECLS; 

DEF  ITEM  ONE  S  =  1; 
DEF  ITEM  TWO  S  =  2; 
DEF  ITEM  TOTAL; 

REF  PROC  COMPUTE 
(FIRST,  SECOND  : 

SUM); 

BEGIN 

ITEM  FIRST  S; 

ITEM  SECOND  S; 
ITEM  SUM  S; 

END 

TERM 


compool-module 


START 

ICOMPOOL  (’DECLS’); 
DEF  PROC  COMPUTE 
(FIRST,  SECOND  : 
SUM); 

BEGIN 

ITEM  FIRST  S; 
ITEM  SECOND  S; 
ITEM  SUM  S; 

SUM  =  FIRST  + 
SECOND; 

END 

TERM 


procedure-module 


START 

’.COMPOOL  (’I)ECLS’); 
PROGRAM  COUNTER; 
BEGIN 

COMPUTE  (ONE,  TWO  : 
THREE); 

END 

TERM 


maiu-program-module 
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73  DATA  OB 


only  one  data  object  per  declaration 
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DATA  TYPES 


pointer  (access) 


ITEM-DECLARATIONS 


Item-declarations  associate  a  name  with  a  description 
of  the  type  of  the  item. 


ITEM-DECLARATIONS 


VELOCITY 


ITEM-DECLARATIONS 


Items  may  be  PRESET  (given  an  initial  value);  they  may  be 
declared  to  be  CONSTANTS,  in  which  case  they  must  be  PRESET. 


TYPE-DECLARATIONS 


ITEM  TYPE-DECLARATIONS 
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TYPE 


ASSIGNMENT-STATEMENT 
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SPEED  1  =  ZERO; 

SPEED2,  S PEE  1)3  =  ZERO; 


ASSIGNMENT-STATEMENT 


TYPE  EQUIVALENCE,  IMPLICIT  AND  EXPLICIT  CONVERSION 


ASSIGNMENT-STATEMENT 


EXPLICIT  CONVERSION 
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SOURCE  (from)  type 


CONVERTIBLE  DATA  TYPE  TABLE 


< - TARGET  (to)  type - > 
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there  are  special  rules  for  STATUS  (and  pointer)  types 

E  =  equivalent  types 
I  -  implicitly  convertible  types 
X  =  explicitly  convertible  types 
*  =  explicitly  convertible  types  with  restrictions 
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IF  SUM  =  LIMIT; 

GOTO  SET’ ANSWER; 
SUM  =  SUM  +  1.0; 
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distinct  between  case-options 
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WHILE-LOOP 


4)  if  FALSE, 
exit  loop 
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FOR-LOOP 
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continue  exit  loop 
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end  ’’INNER  LOOP 
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V  3’)  if  FALSE 

continue  exit  loop 


FOR-LOOP 


FOR-LOOP 


FOR-LOOP 


END 


ITEM  VECTOR’ I  E  23; 
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table-body  may  be  compound  (BEGIN-END)  or  simple 
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DATA  REFERENCES 


TABLE  TYPE-DECLARATIONS 


TABLE  TYPE-DECLARATIONS 


ITEM  HISTORY  GRADE: 
END 


A  QUICK  NOTE  ON  TYPED  TABLES 


TABLE-DECLARATION 
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TABLE-DECLARATION 


tables  may  be  preset  ... 


TABLE  MATRIX  (1  :  4.  1  :  41; 

ITEM  MATRIX  !  S  15  =  4(1.  0,  0.  0); 

TABLE  MATRIX  (1:4,  I  :  4)  =  4(1,  0,  0,  0); 
MEM  MATRIX  !  S  15; 
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END 


SUBSCRIPTS 
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TABLE-DECLARATION 


the  first  two  entries  are  preset 


TABLE  HOUSES  (1  :  9); 

BEGIN 

ITEM  ROOM  STATUS  (  V(LIVING),  V(KITCHEN), 

V(BED1),  V(BED2)  )  = 
V(LIVING),  V(KITCHEN); 

ITEM  LENGTH  F  23  =  12.5,  10.5; 

ITEM  WIDTH  F  23  =  2  (8.0); 

ITEM  HEIGHT  F  23  =  2  (7.0); 

END 


TABLE  HOUSES  (1  :  9)  =  V(LIVING),  12.5,  8.0,  7.0, 

V(KITCHEN),  10.5,  8.0,  7.0; 


BEGIN 


END 


TABLE  HOUSES  (1:9)  = 


BEGIN 


POS  (2):  V(KITCHEN),  10.5, 
POS  (1):  V(LIVING),  12.5, 
POS  (2):  ,  ,  8.0,  7.0, 

POS  (1):  ,  ,  8.0,  7.0; 


END 
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entries  are  typed  (AREA) 


TABLE  TYPE-DECLARATION 


END 


TABLE  TYPE-DECLARATION 


declaration,  or  like-option 


SAMPLE  PROGRAM  1 
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SAMPLE  PROGRAM  2 
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SAMPLE  PROGRAM  3 


START 

PROGRAM  AREAS; 

BEGIN  ’’PROGRAM” 

’’DECLARATIONS” 

TYPE  FLOAT’TYPE  F; 

TYPE  SHAPE’TYPE  STATUS  (  V(SQUARE),  V(RECTANGLE), 

V(TRIANGLE),  V(OTHER)  ); 

TABLE  RESULTS  (1  :  4); 

BEGIN 

ITEM  SHAPE  SHAPE’TYPE  =  V(OTHER), 

V(RECTANGLE), 

V(SQUARE), 

V(TRIANGLE); 

ITEM  AREA  FLOAT’TYPE; 

ITEM  SIDE1  FLOAT’TYPE  =  4.0,  9.5,  8.0,  6.3; 

ITEM  SIDE2  FLOAT’TYPE  *  ,  2.0,  ,  4.0; 

END 

FOR  Z  :  I  BY  1  WHILE  Z  <  =  4; 

CASE  SHAPE  (I); 

BEGIN  ’’CASE” 

(DEFAULT): 

(V(TRIANGLE)):  AREA  (I)  =  0.5  *  S1DE1  (I)  * 

SIDE2  (I); 

(V(SQUARE)):  AREA  (I)  =  SIDE1  (I)  *  SIJEl  (D; 

(V(RECTANGLE)):  AREA  (I)  =  SIDE1  (I)  *  SIDE2  (I); 

END  ’’CASE” 

END  ’’PROGRAM” 
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PROGRAM  ORGANIZATION 
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subroutine  is  like  a  small  program 


SUBROUTINES 


function  (returns  a  value) 
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SUBROUTINE  INVOCATION 


subroutine  is  not  executed  until  it  is  invoked  (called) 


SUBROUTINE  TERMINATION 
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abnormal  termination  is  discussed  later 


SUBROUTINE-DEFINITION 


FORMAL  PARAMETERS 


output  parameters  may  be  used  as  input  values 


PROCEDURE-DEFINITION 


PROCEDURE-DEFINITION 
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ABORT 
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MODULE  SCOPE 


COMPOOL  DECLS 
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